1 REM" THE PUBLICATIONLOADER - COMPLETLY LAME
2 [143]"----------------------------------------
3 REM""(null)
4 F(1)=6:F(2)=2:F(3)=5:F(4)=7:F(5)=1:F(6)=15:POKE657,128
5 IFA=0THENA=1:GOSUB5000:GA=PEEK(186):GOSUB6000:LOAD"CHARSET.1*",GA,1
6 PRINT"[147]":M=0:POKE53265,27:POKE53281,6:POKE53280,0:POKE788,52
7 FORI=49152TO49169:READX:POKEI,X:NEXT
8 DATA160,0,162,0,232,142,32,208,224,255,208,248,200,192,255,208,241,96
9 PRINT"[147]":POKE53272,24
10 PRINTTAB(10)"ABCDEFGHIJKLMNOPQRSTU"
11 PRINTTAB(10)"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]"
12 PRINTTAB(10)"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]"
13 PRINTTAB(10)"!@#$%&'()*+,-./01234"
14 PRINT"[158] YO ! DIZ IS THE HIGH-TECH-MEMBERSTATUS"
15 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":SYS49152:POKE53280,0
16 A$="FLARE":PY=9:GOSUB3000:A$="LEAD,CODE,SWAP":GOSUB4000
17 A$="JAK T RIP":PY=10:GOSUB3000:A$="CO-LEAD,COVER,SWAP":GOSUB4000
18 A$="GHOST":PY=11:GOSUB3000:A$="GRAFIX":GOSUB4000
19 A$="RA!":PY=12:GOSUB3000:A$="GRAFIX":GOSUB4000
20 A$="TSV":PY=13:GOSUB3000:A$="CODE":GOSUB4000
21 A$="GUNHED BATTAILON":PY=14:GOSUB3000:A$="CODE,MUSIX":GOSUB4000
22 A$="ATH":PY=15:GOSUB3000:A$="GRAFIX":GOSUB4000
23 A$="ROBIN HOOD":PY=16:GOSUB3000:A$="PUBLICATION":GOSUB4000
24 A$="ZEITGEIST":PY=17:GOSUB3000:A$="PUBLICATION,CODE":GOSUB4000:SYS49152
25 POKE53280,0:A$=" WATCH OUT FOR ALL FUCKIN' LAME STUFF":PY=19:GOSUB3000
26 A$="  OF HIGH-TECH,EXSPECCIALLY THE NEXT":PY=20:GOSUB3000
27 A$="        ISSUE OF PUBLICATION !":PY=21:GOSUB3000:SYS49152:POKE53280,0
28 A$="  NOW PRESS DA LONG ONE DOWN UNDER !":G=1
29 POKE646,F(G):POKE211,1:POKE214,23:SYS58732:PRINTA$
30 GETX$:IFX$<>""THEN33
31 G=G+1:IFG=7THENG=1
32 GOTO29
33 FORG=7TO23:IFG/2=INT(G/2)THEN35
34 FORQ=0TO38:POKE211,Q:POKE214,G:SYS58732:PRINT" ":NEXTQ,G:GOTO36
35 FORQ=38TO0STEP-1:POKE211,Q:POKE214,G:SYS58732:PRINT" ":NEXTQ,G
36 POKE211,1:POKE214,6:SYS58732:PRINT"[158][164][175][185][162][185][175][164][175][185][162][185][175][164][175][185][162][185][175][164][175][185][162][185][175][164] [159]THE ISSUE #6
37 [153]"LIST TAB(USRFREUSRFREUSRFREUSRFREUSRFREUSRFRETAB(FREUSRFREUSRFREUSRFREUSRFREUSRTAB(STOP"
38 [158]57812("SPRITES*"),GA,1:[151]780,0:[158]65493:[151]53265,11
40 [153]"LOAD"[170][199](34)[170]"PUBLICATION/MAIN"[170][199](34)[170]","[170][196](GA)
41 [153]"RUNONONONONONONONONONONONONONONONON"
42 [151]198,0:[129]I[178]0[164]9:[151]631[170]I,13:[130]:[151]198,10
43 [144]
100 [137]100
3000 [129]G[178]1[164]6:[151]646,F(G):[151]211,1:[151]214,PY:[158]58732:[153]A$:[129]Q[178]1[164]100
3001 [130]Q,G:[142]
4000 [151]646,3:[129]G[178]1[164][195](A$):[151]211,17[170]G:[151]214,PY:[158]58732
4001 [153][202](A$,G,1):[129]Q[178]1[164]30:[130]Q,G:[142]
5000 [151]53280,2:[151]53281,3:[151]646,0:[153]"LOAD"[199](14):GA[178][194](186):G[178]0
5001 [153]" ATNCTUAL STR$EVICE :";GA:[153]"STOP (null)EW STR$EVICE    : ";
5002 [151]204,0:[151]56325,35:G[178]G[170]1:[151]646,F(G):[139]G[178]6[167]G[178]0
5003 [161]A$:[139]A$[178]""[167]5002
5004 X[178][197](A$):[139]X[179][177]8[175]X[179][177]9[167]5002
5005 [151]207,0:[151]204,1:[153]"CMD"X:[151]186,X:[129]G[178]1[164]200:[130]:[142]
6000 [159]1,GA,15:[160]1:[139]ST[179]0[167]A$[178]"STR$RIVE NOT (null)EADY !!!":G[178]1:[137]6002
6001 [153]" STOP(null)OADING...             ":[142]
6002 [151]646,F(G):[151]211,1:[151]214,5:[158]58732:[153]A$
6003 [161]X$:[139]X$[178]""[167]6005
6004 [153]"ONONON":[137]6000
6005 G[178]G[170]1:[139]G[178]7[167]G[178]1
6006 [137]6002